﻿Public Partial Class Informativos
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            encheInformativo()
        End If
    End Sub

    Private Sub encheInformativo()
        Dim c As New SiteDLL.Informativo
        DLInformativo.DataSource = c.getTodosRegistros
        DLInformativo.DataBind()
        c.Dispose()
        c = Nothing
    End Sub

    Protected Sub DLInformativo_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs)
        e.Item.Width = Unit.Percentage(33.33)
    End Sub
End Class